100
How can I change the group's caption

With AxExplorerBar1
	With .Groups.Add("Group 1")
		.AddItem("Item 1")
		.AddItem("Item 2")
		.AddItem("Item 3")
		.Caption = "new caption"
		.Expanded = True
	End With
End With
99
How can I get the number or count of items in a group

With AxExplorerBar1
	With .Groups.Add("Group 1")
		.AddItem("Item 1")
		.AddItem("Item 2")
		.AddItem("Item 3")
		.AddItem(.Count)
		.Expanded = True
	End With
End With
98
How can I access an item in a group

With AxExplorerBar1
	With .Groups.Add("Group 1")
		.AddItem("Item 1")
		.AddItem("Item 2")
		.AddItem("Item 3")
		.Item(1).Bold = True
		.Expanded = True
	End With
End With
97
How can I remove all items, from a group
With AxExplorerBar1
	With .Groups.Add("Group 1")
		.AddItem("Item 1")
		.AddItem("Item 2")
		.AddItem("Item 3")
		.Clear()
		.Expanded = True
	End With
End With
96
How can I remove an item, from a group

With AxExplorerBar1
	With .Groups.Add("Group 1")
		.AddItem("Item 1")
		.AddItem("Item 2")
		.AddItem("Item 3")
		.RemoveItem(1)
		.Expanded = True
	End With
End With
95
How can I add a new item to a group

With AxExplorerBar1
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	With .Groups.Add("Group 1")
		.AddItem("Item 1",1)
		.Expanded = True
	End With
End With
94
How can I add a new item to a group

With AxExplorerBar1
	.Groups.Add("Group 1").AddItem("Item 1")
End With
93
How can I add a new item to a group

With AxExplorerBar1
	With .Groups.Add("Group 1")
		.AddItem("Item 1")
		.Expanded = True
	End With
End With
92
How can I get the groups as they are listed
With AxExplorerBar1
	With .Groups
		.Add("Group 1")
		.Add("Group 2")
		.Add("Group 3")
	End With
End With
91
How can I access a group by position

With AxExplorerBar1
	With .Groups
		.Add("Group 1")
		.Add("Group 2")
		.Add("Group 3")
		.ItemByPos(1).Bold = True
	End With
End With
90
How can I access a group

With AxExplorerBar1
	With .Groups
		.Add("Group 1")
		.Add("Group 2")
		.Add("Group 3")
		.Item(1).Bold = True
	End With
End With
89
How can I clear the groups collection
With AxExplorerBar1
	With .Groups
		.Add("Group 1")
		.Add("Group 2")
		.Add("Group 3")
		.Clear()
	End With
End With
88
How can I remove a group

With AxExplorerBar1
	With .Groups
		.Add("Group 1")
		.Add("Group 2")
		.Add("Group 3")
		.Remove(1)
	End With
End With
87
How can I add a group

With AxExplorerBar1
	With .Groups.Add("Group 1")
		.AddItem("Item 1")
		.AddItem("Item 2")
		.Expanded = True
	End With
End With
86
How do I count the number of groups
With AxExplorerBar1
	With .Groups
		.Add("Group 1")
		.Add("Group 2")
		.Add("Group 3")
		.Add(.Count)
	End With
End With
85
How can I display pictures with a custom size, instead icons, in the shortcut bar

With AxExplorerBar1
	.ShowShortcutBar = True
	.Groups.Add("Group 1").Shortcut = "Set 1"
	.Groups.Add("Group 2").Shortcut = "Set 1"
	.Groups.Add("Group 3").Shortcut = "Set 2"
	.Groups.Add("Group 4").Shortcut = "Set 2"
	.set_ShortcutPicture("Set 1",AxExplorerBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)"))
	.set_ShortcutPicture("Set 2",AxExplorerBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\auction.gif`)"))
	.ShortcutPictureWidth = 32
	.ShortcutPictureHeight = 32
	.ShortcutBarHeight = 32
End With
84
How can I display pictures instead icons, in the shortcut bar

With AxExplorerBar1
	.ShowShortcutBar = True
	.Groups.Add("Group 1").Shortcut = "Set 1"
	.Groups.Add("Group 2").Shortcut = "Set 1"
	.Groups.Add("Group 3").Shortcut = "Set 2"
	.Groups.Add("Group 4").Shortcut = "Set 2"
	.set_ShortcutPicture("Set 1",AxExplorerBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)"))
	.set_ShortcutPicture("Set 2",AxExplorerBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\auction.gif`)"))
	.ShortcutBarHeight = 44
End With
83
How can I change the visual appearance of the shortcut bar, using EBN files

With AxExplorerBar1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.VisualAppearance.Add(2,"c:\exontrol\images\pushed.ebn")
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	.ShowShortcutBar = True
	.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
	.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
	.GetOcx().ShortcutResizeBackColor = &H2000000
	.GetOcx().ShortcutBarSelCaptionBackColor = &H1000000
	.GetOcx().ShortcutBarSelBackColor = &H1000000
	.GetOcx().BackColorGroup = &H1000000
End With
82
How can I change the visual appearance of the separator between groups and the shortcut bar, using your EBN files

With AxExplorerBar1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	.ShowShortcutBar = True
	.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
	.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
	.GetOcx().ShortcutResizeBackColor = &H1000000
	.ExpandShortcutCount = 1
End With
81
How do I change the background color of the separator between groups and the shortcut bar

With AxExplorerBar1
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	.ShowShortcutBar = True
	.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
	.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
	.ShortcutResizeBackColor = RGB(255,0,0)
	.ExpandShortcutCount = 1
End With
80
How can I change the visual appearance of the shortcut bar, using your EBN files

With AxExplorerBar1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	.ShowShortcutBar = True
	.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
	.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
	.GetOcx().ShortcutBarSelCaptionBackColor = &H1000000
	.ExpandShortcutCount = 1
End With
79
How do I change the selection background color in the shortcut bar

With AxExplorerBar1
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	.ShowShortcutBar = True
	.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
	.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
	.ShortcutBarSelCaptionBackColor = RGB(255,0,0)
	.ExpandShortcutCount = 1
End With
78
How can I change the visual appearance of the shortcut bar, using your EBN files

With AxExplorerBar1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	.ShowShortcutBar = True
	.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
	.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
	.GetOcx().ShortcutBarSelBackColor = &H1000000
End With
77
How do I change the selection background color in the shortcut bar

With AxExplorerBar1
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	.ShowShortcutBar = True
	.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
	.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
	.ShortcutBarSelBackColor = RGB(255,0,0)
End With
76
How can I change the visual appearance of the shortcut bar, using your EBN files

With AxExplorerBar1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	.ShowShortcutBar = True
	.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
	.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
	.GetOcx().ShortcutBarBackColor = &H1000000
End With
75
How do I change the background color in the shortcut bar

With AxExplorerBar1
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	.ShowShortcutBar = True
	.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
	.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
	.ShortcutBarBackColor = RGB(255,0,0)
End With
74
How can I programmatically change expand or collapse the shortcut bar

With AxExplorerBar1
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	.ShowShortcutBar = True
	.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
	.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
	.ExpandShortcutCount = 1
End With
73
How do I change the icon for the expanding or collapsing the shortcut bar

With AxExplorerBar1
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	.ShowShortcutBar = True
	.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
	.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
	.ExpandShortcutImage = 3
End With
72
How can I enable or disable resizing the shortcut bar

With AxExplorerBar1
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	.ShowShortcutBar = True
	.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
	.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
	.ExpandShortcutCount = 1
	.AllowResizeShortcutBar = False
End With
71
How do I specify the height of the shortcut bar

With AxExplorerBar1
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	.ShowShortcutBar = True
	.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
	.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
	.ExpandShortcutCount = 1
	.ShortcutBarHeight = 16
End With
70
How do I select a shortcut

With AxExplorerBar1
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	.ShowShortcutBar = True
	.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
	.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
	.ExpandShortcutCount = 1
	.SelectShortcut = "Set <img>2</img>"
End With
69
How do I show or hide the shortcut bar

With AxExplorerBar1
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	.ShowShortcutBar = True
	.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
	.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
	.ExpandShortcutCount = 1
End With
68
How do I access the groups collection
With AxExplorerBar1
	.Groups.Add("Group 1")
End With
67
Can I change the visual effect, appearance for the anchor, hyperlink elements, in HTML captions, after the user clicks it

With AxExplorerBar1
	.set_FormatAnchor(False,"<b><u><fgcolor=FF0000> </fgcolor></u></b>")
	.HighlightItemType = EXPLORERBARLib.HighLightItemEnum.exNoHighlight
	.HandCursor = False
	.Groups.Add("Group <a1><b>1</b></a>").CaptionFormat = EXPLORERBARLib.CaptionFormatEnum.exHTML
End With
66
Can I change the visual effect, appearance for the anchor, hyperlink elements, in HTML captions, after the user clicks it

With AxExplorerBar1
	.set_FormatAnchor(False,"<b><u><fgcolor=FF0000> </fgcolor></u></b>")
	.HighlightItemType = EXPLORERBARLib.HighLightItemEnum.exNoHighlight
	.HandCursor = False
	With .Groups.Add("Group 1")
		.AddItem("Item <a1><b>1</b></a>").CaptionFormat = EXPLORERBARLib.CaptionFormatEnum.exHTML
		.Expanded = True
	End With
End With
65
Can I change the visual effect, appearance for the anchor, hyperlink elements, in HTML captions

With AxExplorerBar1
	.HighlightItemType = EXPLORERBARLib.HighLightItemEnum.exNoHighlight
	.HandCursor = False
	.set_FormatAnchor(True,"<b><u><fgcolor=FF0000> </fgcolor></u></b>")
	.Groups.Add("Group <a1><b>1</b></a>").CaptionFormat = EXPLORERBARLib.CaptionFormatEnum.exHTML
End With
64
Can I change the visual effect, appearance for the anchor, hyperlink elements, in HTML captions

With AxExplorerBar1
	.HighlightItemType = EXPLORERBARLib.HighLightItemEnum.exNoHighlight
	.HandCursor = False
	.set_FormatAnchor(True,"<b><u><fgcolor=FF0000> </fgcolor></u></b>")
	With .Groups.Add("Group 1")
		.AddItem("Item <a1><b>1</b></a>").CaptionFormat = EXPLORERBARLib.CaptionFormatEnum.exHTML
		.Expanded = True
	End With
End With
63
How can I add several pictures and icons to an item

With AxExplorerBar1
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	.set_HTMLPicture("pic1","c:\exontrol\images\zipdisk.gif")
	.set_HTMLPicture("pic2","c:\exontrol\images\auction.gif")
	With .Groups.Add("Group 1")
		.ItemHeight = 48
		With .AddItem("<img>pic1</img> te <img>1:4</img><img>1:4</img><img>1:4</img><img>1</img> xt <img>pic2</img>")
			.Image = 2
			.CaptionFormat = EXPLORERBARLib.CaptionFormatEnum.exHTML
		End With
		.Expanded = True
	End With
End With
62
How can I add several pictures and icons to an item
With AxExplorerBar1
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	.set_HTMLPicture("pic1","c:\exontrol\images\zipdisk.gif")
	.set_HTMLPicture("pic2","c:\exontrol\images\auction.gif")
	With .Groups.Add("Group 1")
		.ItemHeight = 48
		With .AddItem("<img>pic1</img> te <img>1:4</img><img>1:4</img><img>1:4</img><img>1</img> xt <img>pic2</img>")
			.Image = 2
			.CaptionFormat = EXPLORERBARLib.CaptionFormatEnum.exHTML
		End With
		.Expanded = True
	End With
End With
61
How can I add several pictures to an item

With AxExplorerBar1
	.set_HTMLPicture("pic1","c:\exontrol\images\zipdisk.gif")
	.set_HTMLPicture("pic2","c:\exontrol\images\auction.gif")
	With .Groups.Add("Group 1")
		.ItemHeight = 48
		.AddItem("<img>pic1</img> text <img>pic2</img>").CaptionFormat = EXPLORERBARLib.CaptionFormatEnum.exHTML
		.Expanded = True
	End With
End With
60
How can I add several pictures to a group

With AxExplorerBar1
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	.set_HTMLPicture("pic1","c:\exontrol\images\zipdisk.gif")
	.set_HTMLPicture("pic2","c:\exontrol\images\auction.gif")
	.GroupHeight = 48
	With .Groups.Add("<img>pic1</img> te <img>1:4</img><img>1:4</img><img>1:4</img><img>1</img> xt <img>pic2</img>")
		.Image = 2
		.CaptionFormat = EXPLORERBARLib.CaptionFormatEnum.exHTML
		.Picture = AxExplorerBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\colorize.gif`)")
		.AddItem("Item 1")
		.AddItem("Item 2")
		.Expanded = True
	End With
End With
59
How can I add several pictures and icons to a group

With AxExplorerBar1
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	.set_HTMLPicture("pic1","c:\exontrol\images\zipdisk.gif")
	.set_HTMLPicture("pic2","c:\exontrol\images\auction.gif")
	.GroupHeight = 48
	.Groups.Add("<img>pic1</img> te <img>1:4</img><img>1:4</img><img>1:4</img><img>1</img> xt <img>pic2</img>").CaptionFormat = EXPLORERBARLib.CaptionFormatEnum.exHTML
End With
58
How can I add several pictures to a group

With AxExplorerBar1
	.set_HTMLPicture("pic1","c:\exontrol\images\zipdisk.gif")
	.set_HTMLPicture("pic2","c:\exontrol\images\auction.gif")
	.GroupHeight = 48
	With .Groups.Add("<img>pic1</img> text <img>pic2</img>")
		.CaptionFormat = EXPLORERBARLib.CaptionFormatEnum.exHTML
		.Picture = AxExplorerBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\colorize.gif`)")
		.AddItem("Item 1")
		.AddItem("Item 2")
		.Expanded = True
	End With
End With
57
How can I add several pictures to a group

With AxExplorerBar1
	.set_HTMLPicture("pic1","c:\exontrol\images\zipdisk.gif")
	.set_HTMLPicture("pic2","c:\exontrol\images\auction.gif")
	.GroupHeight = 48
	.Groups.Add("<img>pic1</img> text <img>pic2</img>").CaptionFormat = EXPLORERBARLib.CaptionFormatEnum.exHTML
End With
56
How do I force refreshing the control
With AxExplorerBar1
	With .Groups.Add("Group 1")
		.Expanded = True
		.AddItem("Item 1")
	End With
	.Refresh()
End With
55
How can show or hide the focus rectangle

With AxExplorerBar1
	.ShowFocusRect = False
	With .Groups.Add("Group 1")
		.Expanded = True
		.AddItem("Item 1")
	End With
End With
54
I've seen that the width of the tooltip is variable. Can I make it larger

With AxExplorerBar1
	.ToolTipWidth = 328
	.Groups.Add("ToolTip").ToolTip = "<font Tahoma;11>T</font>his is an HTML <b>tooltip</b> assigned to a group."
End With
53
How do I let the tooltip being displayed longer

With AxExplorerBar1
	.ToolTipPopDelay = 10000
	.Groups.Add("ToolTip").ToolTip = "<font Tahoma;11>T</font>his is an HTML <b>tooltip</b> assigned to a group."
End With
52
Can I change the default border of the tooltip, using your EBN files

With AxExplorerBar1
	.ToolTipDelay = 1
	.ToolTipWidth = 364
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.set_Background(EXPLORERBARLib.BackgroundPartEnum.exToolTipAppearance,16777216)
	.Groups.Add("ToolTip").ToolTip = "<font Tahoma;11>T</font>his is an HTML <b>tooltip</b> assigned to a group."
End With
51
Can I change the background color for the tooltip

With AxExplorerBar1
	.ToolTipDelay = 1
	.ToolTipWidth = 364
	.set_Background(EXPLORERBARLib.BackgroundPartEnum.exToolTipBackColor,255)
	.Groups.Add("ToolTip").ToolTip = "<font Tahoma;11>T</font>his is an HTML <b>tooltip</b> assigned to a group."
End With
50
Does the tooltip support HTML format

With AxExplorerBar1
	.ToolTipDelay = 1
	.ToolTipWidth = 364
	.Groups.Add("ToolTip").ToolTip = "<font Tahoma;11>T</font>his is an HTML <b>tooltip</b> assigned to a <fgcolor=FF0000>group</fgcolor>"
End With
49
Can I change the forecolor for the tooltip

With AxExplorerBar1
	.ToolTipDelay = 1
	.ToolTipWidth = 364
	.set_Background(EXPLORERBARLib.BackgroundPartEnum.exToolTipForeColor,255)
	.Groups.Add("ToolTip").ToolTip = "This is a bit of text that's shown when the cursor hovers the group."
End With
48
Can I change the foreground color for the tooltip

With AxExplorerBar1
	.ToolTipDelay = 1
	.ToolTipWidth = 364
	.Groups.Add("ToolTip").ToolTip = "<fgcolor=FF0000>This is a bit of text that's shown when the cursor hovers the group.</fgcolor>"
End With
47
Can I change the font for the tooltip

With AxExplorerBar1
	.ToolTipDelay = 1
	.ToolTipWidth = 364
	.Groups.Add("ToolTip").ToolTip = "<font Tahoma>This is a bit of text that's shown when the cursor hovers the group.</font> Back to the normal font"
End With
46
Can I change the font for the tooltip

With AxExplorerBar1
	.ToolTipDelay = 1
	With .ToolTipFont
		.Name = "Tahoma"
		.Size = 14
	End With
	.ToolTipWidth = 364
	.Groups.Add("ToolTip").ToolTip = "This is a bit of text that's shown when the cursor hovers the group."
End With
45
How do I disable showing the tooltip for all control
With AxExplorerBar1
	.ToolTipDelay = 0
	.Groups.Add("ToolTip").ToolTip = "This is a bit of text that's shown when the cursor hovers the group."
End With
44
How do I show the tooltip quicker
With AxExplorerBar1
	.ToolTipDelay = 1
	.Groups.Add("ToolTip").ToolTip = "This is a bit of text that's shown when the cursor hovers the group."
End With
43
How do I call your x-script language

With AxExplorerBar1
	With .ExecuteTemplate("Groups.Add(`Group 1`)")
		.AddItem("Item 1")
		.Expanded = True
	End With
End With
42
How do I call your x-script language

With AxExplorerBar1
	.Template = "BackColor = RGB(255,0,0)"
End With
41
How can I hide a tooltip when the item exceeds its area, so ... are displayed
With AxExplorerBar1
	.AllowTooltip = False
	With .Groups.Add("Group 1")
		.Expanded = True
		.AddItem("This isa very long text that should break the control in several pieces")
	End With
End With
40
How can I show a tooltip when the item exceeds its area, so ... are displayed

With AxExplorerBar1
	.AllowTooltip = True
	With .Groups.Add("Group 1")
		.Expanded = True
		.AddItem("This isa very long text that should break the control in several pieces")
	End With
End With
39
How do I specify the distance between two groups

With AxExplorerBar1
	.BorderGroupHeight = 0
	.Groups.Add("Group 1")
	.Groups.Add("Group 2").AddItem("Item 2")
End With
38
How can I change the expand / collapse buttons

With AxExplorerBar1
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	.set_ExpandIcon(True,1)
	.set_ExpandIcon(False,2)
	With .Groups.Add("Group 1")
		.AddItem("Item 1")
		.Expanded = True
	End With
	.Groups.Add("Group 2").AddItem("Item 2")
	.EndUpdate()
End With
37
How do I enable or disable the control
With AxExplorerBar1
	.Enabled = False
	With .Groups.Add("Group 1")
		.AddItem("Item 1").Image = 1
		.Expanded = True
	End With
	.Groups.Add("Group 2").AddItem("Item 2")
End With
36
How do I hide the icons in the right side of the group, the expand / collapse buttons

With AxExplorerBar1
	.BeginUpdate()
	.DisplayExpandIcon = False
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	With .Groups.Add("Group 1")
		.AddItem("Item 1").Image = 1
		.Expanded = True
	End With
	.Groups.Add("Group 2").AddItem("Item 2")
	.EndUpdate()
End With
35
Is there any option to stop using the hand shape cursor, when the cursor hovers an item
With AxExplorerBar1
	.BeginUpdate()
	.HandCursor = False
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	.HighlightItemType = EXPLORERBARLib.HighLightItemEnum.exNoHighlight
	With .Groups.Add("Group 1")
		.AddItem("Item 1").Image = 1
		.Expanded = True
	End With
	.Groups.Add("Group 2").AddItem("Item 2")
	.EndUpdate()
End With
34
How do I specify the color to highlight the item
With AxExplorerBar1
	.BeginUpdate()
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	.HyperLinkColor = RGB(255,0,0)
	.HighlightItemType = EXPLORERBARLib.HighLightItemEnum.exHyperLink
	With .Groups.Add("Group 1")
		.AddItem("Item 1").Image = 1
		.Expanded = True
	End With
	.Groups.Add("Group 2").AddItem("Item 2")
	.EndUpdate()
End With
33
How can I expand or collapse a group when I click only its right icon
With AxExplorerBar1
	.BeginUpdate()
	.ExpandOnClick = False
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	.HighlightItemType = EXPLORERBARLib.HighLightItemEnum.exHyperLink
	With .Groups.Add("Group 1")
		.AddItem("Item 1").Image = 1
		.Expanded = True
	End With
	.Groups.Add("Group 2").AddItem("Item 2")
	.EndUpdate()
End With
32
How do I remove the control's borders
With AxExplorerBar1
	.BeginUpdate()
	.Appearance = EXPLORERBARLib.AppearanceEnum.exNone
	.BorderWidth = 0
	.BorderHeight = 0
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	.HighlightItemType = EXPLORERBARLib.HighLightItemEnum.exHyperLink
	With .Groups.Add("Group 1")
		.AddItem("Item 1").Image = 1
		.Expanded = True
	End With
	.Groups.Add("Group 2").AddItem("Item 2")
	.EndUpdate()
End With
31
How do I specify width or the height of the control's borders
With AxExplorerBar1
	.BeginUpdate()
	.Appearance = EXPLORERBARLib.AppearanceEnum.exNone
	.BorderWidth = 0
	.BorderHeight = 0
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	.HighlightItemType = EXPLORERBARLib.HighLightItemEnum.exHyperLink
	With .Groups.Add("Group 1")
		.AddItem("Item 1").Image = 1
		.Expanded = True
	End With
	.Groups.Add("Group 2").AddItem("Item 2")
	.EndUpdate()
End With
28
How do I specify to highlight the items in the group, when the cursor hovers the item
With AxExplorerBar1
	.BeginUpdate()
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	.HighlightItemType = EXPLORERBARLib.HighLightItemEnum.exHyperLink
	With .Groups.Add("Group 1")
		.AddItem("Item 1").Image = 1
		.Expanded = True
	End With
	.Groups.Add("Group 2").AddItem("Item 2")
	.EndUpdate()
End With
27
How do I specify to highlight the items in the group, when the cursor hovers the item
With AxExplorerBar1
	.BeginUpdate()
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	.HighlightItemType = EXPLORERBARLib.HighLightItemEnum.exUnion
	With .Groups.Add("Group 1")
		.AddItem("Item 1").Image = 1
		.Expanded = True
	End With
	.Groups.Add("Group 2").AddItem("Item 2")
	.EndUpdate()
End With
26
How do I specify to highlight the items in the group, when the cursor hovers the item
With AxExplorerBar1
	.BeginUpdate()
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	.HighlightItemType = EXPLORERBARLib.HighLightItemEnum.exIcon
	With .Groups.Add("Group 1")
		.AddItem("Item 1").Image = 1
		.Expanded = True
	End With
	.Groups.Add("Group 2").AddItem("Item 2")
	.EndUpdate()
End With
25
How do I specify to highlight the items in the group, when the cursor hovers the item
With AxExplorerBar1
	.BeginUpdate()
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	.HighlightItemType = EXPLORERBARLib.HighLightItemEnum.exCaption
	With .Groups.Add("Group 1")
		.AddItem("Item 1").Image = 1
		.Expanded = True
	End With
	.Groups.Add("Group 2").AddItem("Item 2")
	.EndUpdate()
End With
24
How do I specify the way the control highlight the items in the group
With AxExplorerBar1
	.BeginUpdate()
	.HighlightItemType = EXPLORERBARLib.HighLightItemEnum.exNoHighlight
	With .Groups.Add("Group 1")
		.AddItem("Item 1")
		.Expanded = True
	End With
	.Groups.Add("Group 2").AddItem("Item 2")
	.EndUpdate()
End With
23
Is there any function to avoid painting the control while adding multiple items and groups
With AxExplorerBar1
	.BeginUpdate()
	With .Groups.Add("Group 1")
		.AddItem("Item 1")
		.Expanded = True
	End With
	.Groups.Add("Group 2").AddItem("Item 2")
	.EndUpdate()
End With
22
How do I decrease the delay to scroll a group
With AxExplorerBar1
	.DelayScroll = 0
	With .Groups.Add("Group 1")
		.AddItem("Item 1")
		.Expanded = True
	End With
	With .Groups.Add("Group 2")
		.AddItem("Item 2")
		.Expanded = True
	End With
End With
21
How do I display icons

With AxExplorerBar1
	.SmallIcons = True
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	.Groups.Add("Group 1").Image = 1
End With
20
How do I display 32x32 icons

With AxExplorerBar1
	.SmallIcons = False
	.GroupHeight = 36
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	.Groups.Add("Group 1").Image = 1
End With
19
How do I specify the height of the groups

With AxExplorerBar1
	.GroupHeight = 40
	.Groups.Add("Group 1")
	.Groups.Add("Group 2")
End With
18
How do I change the visual appearance of the groups
With AxExplorerBar1
	.GroupAppearance = EXPLORERBARLib.AppearanceEnum.exSingle
	.Groups.Add("Group 1")
	.Groups.Add("Group 2")
End With
17
How do I change the visual appearance of the groups, using your EBN files

With AxExplorerBar1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.GetOcx().BackColorGroup = &H1000000
	.Groups.Add("Group 1")
	.Groups.Add("Group 2")
End With
16
How do I change the background color for the groups
With AxExplorerBar1
	.BackColorGroup = RGB(255,0,0)
	.BackColorGroup2 = RGB(255,0,0)
	.Groups.Add("Group 1")
End With
15
How do I change the background color for the groups

With AxExplorerBar1
	.BackColorGroup = RGB(255,0,0)
	.Groups.Add("Group 1")
End With
14
How do I change the control's foreground color

With AxExplorerBar1
	.ForeColor = RGB(0,0,255)
	.ForeColorGroup = RGB(255,0,0)
	With .Groups.Add("Group 1")
		.AddItem("Item 1")
		.Expanded = True
	End With
	.Groups.Add("Group 2")
End With
13
How can I change the control's font

With AxExplorerBar1
	.Font.Name = "Tahoma"
	.Groups.Add("Group 1")
End With
12
How do I change the control's foreground color

With AxExplorerBar1
	.ForeColor = RGB(255,0,0)
	With .Groups.Add("Group 1")
		.AddItem("Item 1")
		.Expanded = True
	End With
End With
11
How do I change the control's background color

With AxExplorerBar1
	.BackColor = RGB(200,200,200)
End With
10
How do I change the control's border, using your EBN files

With AxExplorerBar1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.Appearance = &H1000000
End With
9
How do I remove the control's border
With AxExplorerBar1
	.Appearance = EXPLORERBARLib.AppearanceEnum.exNone
End With
8
How do I put a picture on the center of the control
With AxExplorerBar1
	.Picture = AxExplorerBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	.PictureDisplay = EXPLORERBARLib.PictureDisplayEnum.MiddleCenter
End With
7
How do I resize/stretch a picture on the control's background
With AxExplorerBar1
	.Picture = AxExplorerBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	.PictureDisplay = EXPLORERBARLib.PictureDisplayEnum.Stretch
End With
6
How do I put a picture on the control's center right bottom side

With AxExplorerBar1
	.Picture = AxExplorerBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	.PictureDisplay = EXPLORERBARLib.PictureDisplayEnum.LowerRight
End With
5
How do I put a picture on the control's center left bottom side
With AxExplorerBar1
	.Picture = AxExplorerBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	.PictureDisplay = EXPLORERBARLib.PictureDisplayEnum.LowerLeft
End With
4
How do I put a picture on the control's center top side
With AxExplorerBar1
	.Picture = AxExplorerBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	.PictureDisplay = EXPLORERBARLib.PictureDisplayEnum.UpperCenter
End With
3
How do I put a picture on the control's right top corner
With AxExplorerBar1
	.Picture = AxExplorerBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	.PictureDisplay = EXPLORERBARLib.PictureDisplayEnum.UpperRight
End With
2
How do I put a picture on the control's left top corner
With AxExplorerBar1
	.Picture = AxExplorerBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	.PictureDisplay = EXPLORERBARLib.PictureDisplayEnum.UpperLeft
End With
1
How do I put a picture on the control's background
With AxExplorerBar1
	.Picture = AxExplorerBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
End With